home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
DB_CLIPP
/
1517.ZIP
/
DB4LESS3.ZIP
/
TIME.FMT
< prev
next >
Wrap
Text File
|
1988-11-30
|
2KB
|
67 lines
********************************************************************************
*-- Name....: TIME.FMT
*-- Date....: 11-30-88
*-- Version.: dBASE IV, Format 1.0
*-- Notes...: Format files use "" as delimiters!
********************************************************************************
*-- Format file initialization code --------------------------------------------
IF SET("TALK")="ON"
SET TALK OFF
lc_talk="ON"
ELSE
lc_talk="OFF"
ENDIF
*-- This form was created in COLOR mode
SET DISPLAY TO COLOR
lc_status=SET("STATUS")
*-- SET STATUS was ON when you went into the Forms Designer.
IF lc_status = "OFF"
SET STATUS ON
ENDIF
*-- @ SAY GETS Processing. -----------------------------------------------------
*-- Format Page: 1
@ 3,26 SAY "TIME SLIP INFORMATION FORM"
@ 5,12 TO 12,68
@ 7,20 SAY "Date"
@ 7,29 SAY "Hours"
@ 7,36 SAY "Function"
@ 7,48 SAY "Emp ID"
@ 7,57 SAY "Job ID"
@ 9,17 GET date ;
RANGE {01/01/89},{12/31/89}
@ 9,29 GET hours PICTURE "999.99" ;
RANGE 0,100 ;
MESSAGE "Enter Number of Hours"
@ 9,38 GET funcode PICTURE "@M 01-DEF,02-DES,03-CRE,04-USE,05-MOD" ;
MESSAGE "Use Space Bar to Select Function Code"
@ 9,49 GET empid PICTURE "@! AA999" ;
VALID seek(EMPID,"EMP") ;
ERROR "Employee Id is not in Employee File. Please enter valid Id." ;
MESSAGE "Enter Employee Number"
@ 9,58 GET jobid PICTURE "@! AAA99" ;
VALID seek(JOBID,"JOB") ;
ERROR "Job Id is not in Job File. Please enter valid Id." ;
MESSAGE "Enter Job Number"
*-- Format file exit code -----------------------------------------------------
*-- SET STATUS was ON when you went into the Forms Designer.
IF lc_status = "OFF" && Entered form with status off
SET STATUS OFF && Turn STATUS "OFF" on the way out
ENDIF
IF lc_talk="ON"
SET TALK ON
ENDIF
RELEASE lc_talk,lc_fields,lc_status
*-- EOP: TIME.FMT